object fornecedor: Tfornecedor
  Left = -8
  Top = -8
  Width = 1296
  Height = 978
  BorderIcons = []
  Caption = 'Controle de Fornecedores - Supermercado Caracol Ltda'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBText1: TDBText
    Left = 320
    Top = 48
    Width = 473
    Height = 25
    DataField = 'nomec'
    DataSource = DataSource2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label10: TLabel
    Left = 8
    Top = 12
    Width = 92
    Height = 13
    Caption = 'C'#243'digo Ledware'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label13: TLabel
    Left = 608
    Top = 16
    Width = 123
    Height = 13
    Caption = 'Processar a partir de '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label14: TLabel
    Left = 883
    Top = 520
    Width = 6
    Height = 20
    Alignment = taRightJustify
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label1: TLabel
    Left = 883
    Top = 552
    Width = 6
    Height = 20
    Alignment = taRightJustify
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBText2: TDBText
    Left = 808
    Top = 48
    Width = 89
    Height = 25
    Alignment = taRightJustify
    DataField = 'xcr'
    DataSource = DataSource2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 8
    Top = 736
    Width = 365
    Height = 24
    Caption = 'Total de duplicatas a integrar no Caixa:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 8
    Top = 688
    Width = 392
    Height = 24
    Caption = 'Total de Notas a Vista a integrar no Caixa:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 8
    Top = 664
    Width = 129
    Height = 13
    Caption = 'Lancamentos no Caixa'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object RadioGroup1: TRadioGroup
    Left = 8
    Top = 40
    Width = 233
    Height = 33
    Caption = 'Localizar Fornecedor'
    Columns = 2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    Items.Strings = (
      'Raz'#227'o Social'
      'C'#243'digo')
    ParentFont = False
    TabOrder = 2
  end
  object BitBtn1: TBitBtn
    Left = 120
    Top = 202
    Width = 73
    Height = 21
    Caption = 'Gera Fornecedor'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    Visible = False
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 248
    Top = 48
    Width = 65
    Height = 25
    Hint = 'Localizar Fornecedor'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333FF3333333333333003333
      3333333333773FF3333333333309003333333333337F773FF333333333099900
      33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
      99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
      33333333337F3F77333333333309003333333333337F77333333333333003333
      3333333333773333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object Edit2: TEdit
    Left = 320
    Top = 48
    Width = 473
    Height = 32
    CharCase = ecUpperCase
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    Text = 'DIGITE AQUI PARA LOCALIZAR'
    OnChange = Edit2Change
    OnEnter = Edit2Enter
  end
  object Edit1: TEdit
    Left = 48
    Top = 416
    Width = 121
    Height = 21
    TabOrder = 6
    Visible = False
  end
  object DBEdit1: TDBEdit
    Left = 152
    Top = 8
    Width = 449
    Height = 21
    DataField = 'nome_empresa'
    DataSource = base.DSempresas
    Enabled = False
    TabOrder = 8
  end
  object Edit3: TEdit
    Left = 104
    Top = 8
    Width = 41
    Height = 21
    TabStop = False
    TabOrder = 0
    Text = '0091'
    OnChange = Edit3Change
    OnExit = Edit3Exit
    OnKeyPress = Edit3KeyPress
  end
  object RadioGroup2: TRadioGroup
    Left = 8
    Top = 592
    Width = 889
    Height = 57
    Caption = 'ULTIMAS NOTAS EMITIDAS'
    Columns = 2
    TabOrder = 9
  end
  object Button2: TButton
    Left = 904
    Top = 392
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 10
    Visible = False
    OnClick = Button2Click
  end
  object DBGrid3: TDBGrid
    Left = 8
    Top = 80
    Width = 513
    Height = 505
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 11
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid3CellClick
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'data'
        Title.Alignment = taCenter
        Title.Caption = 'Data'
        Width = 67
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Descricao'
        Width = 252
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Nota'
        Title.Alignment = taCenter
        Width = 66
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'credito'
        Title.Alignment = taCenter
        Title.Caption = 'Valor da Nota'
        Width = 79
        Visible = True
      end>
  end
  object DBGrid4: TDBGrid
    Left = 520
    Top = 80
    Width = 377
    Height = 425
    DataSource = DataSource7
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 12
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'data'
        Title.Caption = 'Data'
        Width = 65
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Descricao'
        Width = 180
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'debito'
        Title.Alignment = taCenter
        Title.Caption = 'Valor Pago'
        Width = 80
        Visible = True
      end>
  end
  object MaskEdit3: TMaskEdit
    Left = 736
    Top = 8
    Width = 66
    Height = 21
    EditMask = '00/0000;1;_'
    MaxLength = 7
    TabOrder = 13
    Text = '01/2014'
  end
  object Button3: TButton
    Left = 904
    Top = 360
    Width = 75
    Height = 25
    Caption = 'Button3'
    TabOrder = 14
    Visible = False
    OnClick = Button3Click
  end
  object ListBox1: TListBox
    Left = 8
    Top = 80
    Width = 889
    Height = 505
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    ItemHeight = 14
    ParentFont = False
    TabOrder = 7
    Visible = False
  end
  object Button1: TButton
    Left = 824
    Top = 8
    Width = 73
    Height = 21
    Caption = 'Antigo'
    TabOrder = 15
    OnClick = Button1Click
  end
  object DBGrid1: TDBGrid
    Left = 320
    Top = 80
    Width = 577
    Height = 393
    DataSource = DataSource2
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Visible = False
    OnCellClick = DBGrid1CellClick
    Columns = <
      item
        Expanded = False
        FieldName = 'codic'
        Title.Caption = 'Codigo'
        Width = 87
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'nomec'
        Title.Caption = 'Nome'
        Width = 290
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'xcr'
        Title.Caption = 'Reduzido'
        Visible = True
      end>
  end
  object MaskEdit1: TMaskEdit
    Left = 144
    Top = 656
    Width = 66
    Height = 21
    EditMask = '00/0000;1;_'
    MaxLength = 7
    TabOrder = 16
    Text = '01/2014'
    OnExit = MaskEdit1Exit
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 280
    Top = 336
  end
  object DataSource3: TDataSource
    DataSet = ccfor
    Left = 136
    Top = 296
  end
  object DataSource4: TDataSource
    DataSet = FORNE
    Left = 104
    Top = 336
  end
  object DataSource5: TDataSource
    DataSet = ccfor
    Left = 104
    Top = 296
  end
  object DataSource6: TDataSource
    DataSet = PvQuery1
    Left = 280
    Top = 296
  end
  object Table3: TADOTable
    Connection = base.LEDWIN
    CursorType = ctStatic
    TableName = 'histc'
    Left = 64
    Top = 256
    object Table3codih: TStringField
      FieldName = 'codih'
      Size = 3
    end
    object Table3nhist: TStringField
      FieldName = 'nhist'
      Size = 40
    end
  end
  object ccfor: TADOTable
    Connection = base.LED
    CursorType = ctStatic
    TableName = 'ccfor'
    Left = 64
    Top = 296
    object ccforxid: TAutoIncField
      FieldName = 'xid'
      ReadOnly = True
    end
    object ccforxcgc: TStringField
      FieldName = 'xcgc'
      Size = 14
    end
    object ccforxndoc: TStringField
      FieldName = 'xndoc'
      Size = 9
    end
    object ccforxdtcompra: TDateTimeField
      FieldName = 'xdtcompra'
    end
    object ccforxdtvenc: TDateTimeField
      FieldName = 'xdtvenc'
      EditMask = '00/00/0000'
    end
    object ccforxvalor: TBCDField
      FieldName = 'xvalor'
      DisplayFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object ccforxdtpag: TDateTimeField
      FieldName = 'xdtpag'
    end
    object ccforxclp: TStringField
      FieldName = 'xclp'
      Size = 4
    end
    object ccforxoper: TStringField
      FieldName = 'xoper'
      Size = 1
    end
    object ccforxdupl: TStringField
      FieldName = 'xdupl'
      Size = 8
    end
    object ccforxcheque: TStringField
      FieldName = 'xcheque'
      EditMask = '000000'
      Size = 8
    end
    object ccforxid_forne: TIntegerField
      FieldName = 'xid_forne'
    end
    object ccforxind_tit: TStringField
      FieldName = 'xind_tit'
      Size = 2
    end
    object ccforxmulta: TBCDField
      FieldName = 'xmulta'
      Precision = 18
      Size = 2
    end
    object ccforxjuros: TBCDField
      FieldName = 'xjuros'
      Precision = 18
      Size = 2
    end
    object ccforxdescontos: TBCDField
      FieldName = 'xdescontos'
      Precision = 18
      Size = 2
    end
    object ccforxacrescimos: TBCDField
      FieldName = 'xacrescimos'
      Precision = 18
      Size = 2
    end
    object ccforxvrpago: TBCDField
      FieldName = 'xvrpago'
      Precision = 18
      Size = 2
    end
    object ccforxobs: TStringField
      FieldName = 'xobs'
      Size = 15
    end
    object ccforxtipo: TStringField
      FieldName = 'xtipo'
      Size = 1
    end
  end
  object FORNE: TADOTable
    Connection = base.LED
    CursorType = ctStatic
    TableName = 'FORNE'
    Left = 64
    Top = 336
    object FORNExid: TAutoIncField
      FieldName = 'xid'
      ReadOnly = True
    end
    object FORNExcodigo: TStringField
      FieldName = 'xcodigo'
      Size = 5
    end
    object FORNEcgc: TStringField
      FieldName = 'cgc'
      Size = 14
    end
    object FORNErazao: TStringField
      FieldName = 'razao'
      Size = 40
    end
    object FORNEinscr: TStringField
      FieldName = 'inscr'
      Size = 16
    end
    object FORNEuf: TStringField
      FieldName = 'uf'
      Size = 2
    end
    object FORNExccf: TStringField
      FieldName = 'xccf'
      Size = 10
    end
    object FORNExccclie: TStringField
      FieldName = 'xccclie'
      Size = 10
    end
    object FORNExcmun: TStringField
      FieldName = 'xcmun'
      Size = 5
    end
    object FORNExcidade: TStringField
      FieldName = 'xcidade'
      Size = 30
    end
    object FORNExende: TStringField
      FieldName = 'xende'
      Size = 40
    end
    object FORNExnumero: TStringField
      FieldName = 'xnumero'
      Size = 6
    end
    object FORNExbairro: TStringField
      FieldName = 'xbairro'
    end
    object FORNExcep: TStringField
      FieldName = 'xcep'
      Size = 9
    end
    object FORNExtel: TStringField
      FieldName = 'xtel'
    end
    object FORNExcontato: TStringField
      FieldName = 'xcontato'
    end
    object FORNExemail: TStringField
      FieldName = 'xemail'
      Size = 40
    end
    object FORNExinscr_municipal: TStringField
      FieldName = 'xinscr_municipal'
      Size = 16
    end
    object FORNExtiporua: TStringField
      FieldName = 'xtiporua'
      Size = 10
    end
    object FORNExtipobairro: TStringField
      FieldName = 'xtipobairro'
      Size = 10
    end
    object FORNExmeepp: TStringField
      FieldName = 'xmeepp'
      Size = 1
    end
    object FORNExcod_pais: TStringField
      FieldName = 'xcod_pais'
      Size = 5
    end
    object FORNExsuframa: TStringField
      FieldName = 'xsuframa'
      Size = 9
    end
    object FORNEd_xcodmun: TStringField
      FieldName = 'd_xcodmun'
      Size = 7
    end
  end
  object Query11: TADOQuery
    Connection = base.LED
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'codic'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'codic1'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'data'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end>
    SQL.Strings = (
      'select * from lancc'
      
        'where ((ccdebito = :codic) or (cccredito = :codic1))  and (data ' +
        '>= :data)')
    Left = 240
    Top = 256
    object Query11sequencia: TAutoIncField
      FieldName = 'sequencia'
      ReadOnly = True
    end
    object Query11data: TDateTimeField
      FieldName = 'data'
    end
    object Query11ndoc: TStringField
      FieldName = 'ndoc'
      Size = 4
    end
    object Query11clp: TStringField
      FieldName = 'clp'
      Size = 4
    end
    object Query11ccdebito: TStringField
      FieldName = 'ccdebito'
      Size = 10
    end
    object Query11cccredito: TStringField
      FieldName = 'cccredito'
      Size = 10
    end
    object Query11valor: TBCDField
      FieldName = 'valor'
      Precision = 18
      Size = 2
    end
    object Query11hist: TStringField
      FieldName = 'hist'
      Size = 3
    end
    object Query11comphist: TMemoField
      FieldName = 'comphist'
      BlobType = ftMemo
    end
    object Query11partida: TStringField
      FieldName = 'partida'
      Size = 1
    end
    object Query11custo: TStringField
      FieldName = 'custo'
      Size = 3
    end
    object Query11custocr: TStringField
      FieldName = 'custocr'
      Size = 3
    end
  end
  object PvQuery1: TADOQuery
    Connection = base.LED
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from entra')
    Left = 240
    Top = 296
    object PvQuery1diames: TDateTimeField
      FieldName = 'diames'
    end
    object PvQuery1nota: TStringField
      FieldName = 'nota'
      Size = 9
    end
    object PvQuery1xlc: TStringField
      FieldName = 'xlc'
      Size = 2
    end
    object PvQuery1emissao: TDateTimeField
      FieldName = 'emissao'
    end
    object PvQuery1esp: TStringField
      FieldName = 'esp'
      Size = 4
    end
    object PvQuery1serie: TStringField
      FieldName = 'serie'
      Size = 5
    end
    object PvQuery1cgccpf: TStringField
      FieldName = 'cgccpf'
      Size = 14
    end
    object PvQuery1uf: TStringField
      FieldName = 'uf'
      Size = 2
    end
    object PvQuery1codfisca: TStringField
      FieldName = 'codfisca'
      Size = 4
    end
    object PvQuery1xccf: TStringField
      FieldName = 'xccf'
      Size = 2
    end
    object PvQuery1obs: TStringField
      FieldName = 'obs'
      Size = 15
    end
    object PvQuery1valcont: TBCDField
      FieldName = 'valcont'
      Precision = 18
      Size = 2
    end
    object PvQuery1bascalicm: TBCDField
      FieldName = 'bascalicm'
      Precision = 18
      Size = 2
    end
    object PvQuery1alicm: TBCDField
      FieldName = 'alicm'
      Precision = 18
      Size = 2
    end
    object PvQuery1icm: TBCDField
      FieldName = 'icm'
      Precision = 18
      Size = 2
    end
    object PvQuery1isentoicm: TBCDField
      FieldName = 'isentoicm'
      Precision = 18
      Size = 2
    end
    object PvQuery1outrasicm: TBCDField
      FieldName = 'outrasicm'
      Precision = 18
      Size = 2
    end
    object PvQuery1xdifsusp: TBCDField
      FieldName = 'xdifsusp'
      Precision = 18
      Size = 2
    end
    object PvQuery1bascalipi: TBCDField
      FieldName = 'bascalipi'
      Precision = 18
      Size = 2
    end
    object PvQuery1alipi: TBCDField
      FieldName = 'alipi'
      Precision = 18
      Size = 2
    end
    object PvQuery1ipi: TBCDField
      FieldName = 'ipi'
      Precision = 18
      Size = 2
    end
    object PvQuery1isentoipi: TBCDField
      FieldName = 'isentoipi'
      Precision = 18
      Size = 2
    end
    object PvQuery1outrasipi: TBCDField
      FieldName = 'outrasipi'
      Precision = 18
      Size = 2
    end
    object PvQuery1ipinaprov: TBCDField
      FieldName = 'ipinaprov'
      Precision = 18
      Size = 2
    end
    object PvQuery1impfonte: TBCDField
      FieldName = 'impfonte'
      Precision = 18
      Size = 2
    end
    object PvQuery1xportcat: TStringField
      FieldName = 'xportcat'
      Size = 2
    end
    object PvQuery1xldipi: TStringField
      FieldName = 'xldipi'
      Size = 1
    end
    object PvQuery1xclp: TStringField
      FieldName = 'xclp'
      Size = 4
    end
    object PvQuery1xdg: TDateTimeField
      FieldName = 'xdg'
    end
    object PvQuery1xbcdfe: TBCDField
      FieldName = 'xbcdfe'
      Precision = 18
      Size = 2
    end
    object PvQuery1xregesp: TStringField
      FieldName = 'xregesp'
      Size = 3
    end
    object PvQuery1xdapimg44: TBCDField
      FieldName = 'xdapimg44'
      Precision = 18
      Size = 2
    end
    object PvQuery1xdapimg45: TBCDField
      FieldName = 'xdapimg45'
      Precision = 18
      Size = 2
    end
    object PvQuery1xdapimg46: TBCDField
      FieldName = 'xdapimg46'
      Precision = 18
      Size = 2
    end
    object PvQuery1xdapimg47: TBCDField
      FieldName = 'xdapimg47'
      Precision = 18
      Size = 2
    end
    object PvQuery1xdapimg48: TBCDField
      FieldName = 'xdapimg48'
      Precision = 18
      Size = 2
    end
    object PvQuery1xdapimg49: TBCDField
      FieldName = 'xdapimg49'
      Precision = 18
      Size = 2
    end
    object PvQuery1xdapimg50: TBCDField
      FieldName = 'xdapimg50'
      Precision = 18
      Size = 2
    end
    object PvQuery1xdapimg51: TBCDField
      FieldName = 'xdapimg51'
      Precision = 18
      Size = 2
    end
    object PvQuery1xdapimg52: TBCDField
      FieldName = 'xdapimg52'
      Precision = 18
      Size = 2
    end
    object PvQuery1xdapimg53: TBCDField
      FieldName = 'xdapimg53'
      Precision = 18
      Size = 2
    end
    object PvQuery1xdapimg54: TBCDField
      FieldName = 'xdapimg54'
      Precision = 18
      Size = 2
    end
    object PvQuery1xbcsaida30: TBCDField
      FieldName = 'xbcsaida30'
      Precision = 18
      Size = 2
    end
    object PvQuery1xbcsaida25: TBCDField
      FieldName = 'xbcsaida25'
      Precision = 18
      Size = 2
    end
    object PvQuery1xbcsaida18: TBCDField
      FieldName = 'xbcsaida18'
      Precision = 18
      Size = 2
    end
    object PvQuery1xbcsaida12: TBCDField
      FieldName = 'xbcsaida12'
      Precision = 18
      Size = 2
    end
    object PvQuery1xicms_sac: TBCDField
      FieldName = 'xicms_sac'
      Precision = 18
      Size = 2
    end
    object PvQuery1xisentas: TBCDField
      FieldName = 'xisentas'
      Precision = 18
      Size = 2
    end
    object PvQuery1xntrib: TBCDField
      FieldName = 'xntrib'
      Precision = 18
      Size = 2
    end
    object PvQuery1xparc_bc_r: TBCDField
      FieldName = 'xparc_bc_r'
      Precision = 18
      Size = 2
    end
    object PvQuery1xdiferidas: TBCDField
      FieldName = 'xdiferidas'
      Precision = 18
      Size = 2
    end
    object PvQuery1xsuspensas: TBCDField
      FieldName = 'xsuspensas'
      Precision = 18
      Size = 2
    end
    object PvQuery1xst: TBCDField
      FieldName = 'xst'
      Precision = 18
      Size = 2
    end
    object PvQuery1xoutras: TBCDField
      FieldName = 'xoutras'
      Precision = 18
      Size = 2
    end
    object PvQuery1xbcsaida07: TBCDField
      FieldName = 'xbcsaida07'
      Precision = 18
      Size = 2
    end
    object PvQuery1xoutrosimp: TBCDField
      FieldName = 'xoutrosimp'
      Precision = 18
      Size = 2
    end
    object PvQuery1xpetr_ener: TBCDField
      FieldName = 'xpetr_ener'
      Precision = 18
      Size = 2
    end
    object PvQuery1xoutros_pr: TBCDField
      FieldName = 'xoutros_pr'
      Precision = 18
      Size = 2
    end
    object PvQuery1xdapimg55: TBCDField
      FieldName = 'xdapimg55'
      Precision = 18
      Size = 2
    end
    object PvQuery1xdapimg56: TBCDField
      FieldName = 'xdapimg56'
      Precision = 18
      Size = 2
    end
    object PvQuery1xdapimg60: TBCDField
      FieldName = 'xdapimg60'
      Precision = 18
      Size = 2
    end
    object PvQuery1xbc_st: TBCDField
      FieldName = 'xbc_st'
      Precision = 18
      Size = 2
    end
    object PvQuery1xir_st: TBCDField
      FieldName = 'xir_st'
      Precision = 18
      Size = 2
    end
    object PvQuery1xir_sd: TBCDField
      FieldName = 'xir_sd'
      Precision = 18
      Size = 2
    end
    object PvQuery1xsubitem: TStringField
      FieldName = 'xsubitem'
      Size = 5
    end
    object PvQuery1xp_st: TStringField
      FieldName = 'xp_st'
      Size = 1
    end
    object PvQuery1xordem: TAutoIncField
      FieldName = 'xordem'
      ReadOnly = True
    end
    object PvQuery1xal_bcda: TBCDField
      FieldName = 'xal_bcda'
      Precision = 18
      Size = 2
    end
    object PvQuery1xcafe: TStringField
      FieldName = 'xcafe'
      Size = 3
    end
    object PvQuery1xenf_pt: TStringField
      FieldName = 'xenf_pt'
      Size = 1
    end
    object PvQuery1xmod_frete: TStringField
      FieldName = 'xmod_frete'
      Size = 1
    end
    object PvQuery1xinscr_rural: TStringField
      FieldName = 'xinscr_rural'
      Size = 14
    end
    object PvQuery1xbfiscal: TStringField
      FieldName = 'xbfiscal'
      Size = 1
    end
    object PvQuery1xid_forne: TIntegerField
      FieldName = 'xid_forne'
    end
    object PvQuery1xcod_sit: TStringField
      FieldName = 'xcod_sit'
      Size = 2
    end
    object PvQuery1xchv_nfe: TStringField
      FieldName = 'xchv_nfe'
      Size = 44
    end
    object PvQuery1xind_pgto: TStringField
      FieldName = 'xind_pgto'
      Size = 1
    end
    object PvQuery1xvl_abat_nt: TBCDField
      FieldName = 'xvl_abat_nt'
      Precision = 18
      Size = 2
    end
    object PvQuery1xind_frt: TStringField
      FieldName = 'xind_frt'
      Size = 1
    end
    object PvQuery1xvl_liq_frt: TBCDField
      FieldName = 'xvl_liq_frt'
      Precision = 18
      Size = 2
    end
    object PvQuery1xvl_seg: TBCDField
      FieldName = 'xvl_seg'
      Precision = 18
      Size = 2
    end
    object PvQuery1xvl_out_da: TBCDField
      FieldName = 'xvl_out_da'
      Precision = 18
      Size = 2
    end
    object PvQuery1xvl_pis: TBCDField
      FieldName = 'xvl_pis'
      Precision = 18
      Size = 2
    end
    object PvQuery1xvl_cofins: TBCDField
      FieldName = 'xvl_cofins'
      Precision = 18
      Size = 2
    end
    object PvQuery1xvl_pis_st: TBCDField
      FieldName = 'xvl_pis_st'
      Precision = 18
      Size = 2
    end
    object PvQuery1xvl_cofins_st: TBCDField
      FieldName = 'xvl_cofins_st'
      Precision = 18
      Size = 2
    end
    object PvQuery1xcod_cons: TStringField
      FieldName = 'xcod_cons'
      Size = 2
    end
    object PvQuery1xvl_terc: TBCDField
      FieldName = 'xvl_terc'
      Precision = 18
      Size = 2
    end
    object PvQuery1xvl_da: TBCDField
      FieldName = 'xvl_da'
      Precision = 18
      Size = 2
    end
    object PvQuery1xcod_inf: TStringField
      FieldName = 'xcod_inf'
      Size = 5
    end
    object PvQuery1xsubserie: TStringField
      FieldName = 'xsubserie'
      Size = 3
    end
    object PvQuery1xcodic: TStringField
      FieldName = 'xcodic'
      Size = 10
    end
    object PvQuery1xvl_serv: TBCDField
      FieldName = 'xvl_serv'
      Precision = 18
      Size = 2
    end
    object PvQuery1xtp_ct_e: TStringField
      FieldName = 'xtp_ct_e'
      Size = 1
    end
    object PvQuery1xchv_ref: TStringField
      FieldName = 'xchv_ref'
      Size = 44
    end
    object PvQuery1xantec_trib: TStringField
      FieldName = 'xantec_trib'
      Size = 1
    end
    object PvQuery1xtp_ligacao: TStringField
      FieldName = 'xtp_ligacao'
      Size = 1
    end
    object PvQuery1xcod_grupo_tensao: TStringField
      FieldName = 'xcod_grupo_tensao'
      Size = 2
    end
    object PvQuery1xtp_assinante: TStringField
      FieldName = 'xtp_assinante'
      Size = 1
    end
    object PvQuery1xvl_compicms: TBCDField
      FieldName = 'xvl_compicms'
      Precision = 18
      Size = 2
    end
    object PvQuery1xind_oper: TStringField
      FieldName = 'xind_oper'
      Size = 1
    end
    object PvQuery1xtipolancto: TStringField
      FieldName = 'xtipolancto'
      Size = 1
    end
  end
  object Table2: TADOQuery
    Connection = base.LED
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from conta'
      'where (codic >= '#39'2101010001'#39') and (codic < '#39'2101030000'#39')'
      'order by nomec')
    Left = 240
    Top = 336
    object Table2codic: TStringField
      FieldName = 'codic'
      Size = 10
    end
    object Table2xcr: TIntegerField
      FieldName = 'xcr'
    end
    object Table2nomec: TStringField
      FieldName = 'nomec'
      Size = 40
    end
    object Table2saldo: TBCDField
      FieldName = 'saldo'
      Precision = 18
      Size = 2
    end
    object Table2sintetico: TStringField
      FieldName = 'sintetico'
      Size = 1
    end
    object Table2balanco: TStringField
      FieldName = 'balanco'
      Size = 1
    end
    object Table2xlalur: TStringField
      FieldName = 'xlalur'
      Size = 1
    end
    object Table2rel_sante: TBCDField
      FieldName = 'rel_sante'
      Precision = 18
      Size = 2
    end
    object Table2rel_satua: TBCDField
      FieldName = 'rel_satua'
      Precision = 18
      Size = 2
    end
    object Table2rel_tsd: TBCDField
      FieldName = 'rel_tsd'
      Precision = 18
      Size = 2
    end
    object Table2rel_tsc: TBCDField
      FieldName = 'rel_tsc'
      Precision = 18
      Size = 2
    end
    object Table2rel_cadsn: TStringField
      FieldName = 'rel_cadsn'
      Size = 1
    end
    object Table2rel_saldodeb: TBCDField
      FieldName = 'rel_saldodeb'
      Precision = 18
      Size = 2
    end
    object Table2rel_saldocre: TBCDField
      FieldName = 'rel_saldocre'
      Precision = 18
      Size = 2
    end
    object Table2xind_nat: TStringField
      FieldName = 'xind_nat'
      Size = 1
    end
    object Table2xanalise_critica: TStringField
      FieldName = 'xanalise_critica'
      Size = 1
    end
    object Table2xcodicref: TStringField
      FieldName = 'xcodicref'
    end
    object Table2xind_nat_sped: TStringField
      FieldName = 'xind_nat_sped'
      Size = 1
    end
    object Table2xstatus: TStringField
      FieldName = 'xstatus'
      Size = 1
    end
    object Table2xinativo: TStringField
      FieldName = 'xinativo'
      Size = 1
    end
  end
  object COMANDO: TADOQuery
    Connection = base.LED
    Parameters = <>
    Left = 168
    Top = 416
  end
  object DataSource8: TDataSource
    DataSet = COMANDO
    Left = 208
    Top = 416
  end
  object PvQuery2: TADOQuery
    Connection = base.LED
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from entra')
    Left = 240
    Top = 368
  end
  object Query1: TADOQuery
    Connection = base.LED
    Parameters = <>
    SQL.Strings = (
      
        'select sum(xvalor) as valor from ccfor where xndoc = '#39'000264904'#39 +
        ' and xcgc = '#39'31456338000186'#39
      'and xdtcompra = '#39'18/12/2012'#39)
    Left = 160
    Top = 520
  end
  object DataSource9: TDataSource
    DataSet = Query1
    Left = 1064
    Top = 392
  end
  object Timer1: TTimer
    Interval = 10000
    OnTimer = Timer1Timer
    Left = 912
    Top = 272
  end
  object DataSource1: TDataSource
    DataSet = fornecedores
    Left = 1056
    Top = 312
  end
  object Novo: TADOQuery
    Connection = base.LED
    CursorType = ctStatic
    Parameters = <>
    Left = 160
    Top = 480
  end
  object fornecedores: TADOQuery
    Connection = base.SISTEMA
    Parameters = <>
    SQL.Strings = (
      'select * from forne')
    Left = 992
    Top = 320
    object fornecedoresdata: TDateTimeField
      FieldName = 'data'
    end
    object fornecedoresid: TIntegerField
      FieldName = 'id'
    end
    object fornecedoresDescricao: TStringField
      FieldName = 'Descricao'
      Size = 50
    end
    object fornecedoresNota: TStringField
      FieldName = 'Nota'
      Size = 9
    end
    object fornecedoresdebito: TFloatField
      FieldName = 'debito'
      DisplayFormat = '0.00'
    end
    object fornecedorescredito: TFloatField
      FieldName = 'credito'
      DisplayFormat = '0.00'
    end
    object fornecedoresES: TStringField
      FieldName = 'ES'
      Size = 1
    end
    object fornecedorescgc: TStringField
      FieldName = 'cgc'
      Size = 14
    end
  end
  object DataSource7: TDataSource
    DataSet = duplicata
    Left = 1064
    Top = 360
  end
  object duplicata: TADOQuery
    Connection = base.SISTEMA
    Parameters = <>
    SQL.Strings = (
      'select * from forne')
    Left = 992
    Top = 360
    object duplicatadata: TDateTimeField
      FieldName = 'data'
    end
    object duplicataid: TIntegerField
      FieldName = 'id'
    end
    object duplicataDescricao: TStringField
      FieldName = 'Descricao'
      Size = 50
    end
    object duplicataNota: TStringField
      FieldName = 'Nota'
      Size = 9
    end
    object duplicatadebito: TFloatField
      FieldName = 'debito'
      DisplayFormat = '0.00'
    end
    object duplicatacredito: TFloatField
      FieldName = 'credito'
      DisplayFormat = '0.00'
    end
    object duplicataES: TStringField
      FieldName = 'ES'
      Size = 1
    end
    object duplicatacgc: TStringField
      FieldName = 'cgc'
      Size = 14
    end
  end
  object soma: TADOQuery
    Connection = base.SISTEMA
    Parameters = <>
    SQL.Strings = (
      'select * from forne')
    Left = 1000
    Top = 400
  end
  object Total: TADOQuery
    Connection = base.LED
    Parameters = <>
    Left = 384
    Top = 496
  end
end
